home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / boris ii.amos / boris ii.amosSourceCode < prev    next >
AMOS Source Code  |  1990-10-26  |  2KB  |  117 lines
  1. '
  2. '
  3. '                          (c) 1990 Gary Shilvock....... 
  4. '    
  5. '    
  6. '  
  7. '
  8. '
  9. '
  10. ' Once Again, Another Demo Containing A Boris Vallego Artwork
  11. ' Coupled with a piece of music. 
  12. ' If You Like Any Of My Routines, Feel Free To Use Them, But Say Hello 
  13. ' To Me In Your Demo (Thats not to much to ask is it?).  
  14. '  
  15. '
  16. '  
  17. '  
  18. '
  19. '
  20. '
  21. '
  22. '
  23. '
  24. '
  25. '
  26. DEMO
  27. End 
  28. Procedure DEMO
  29.    TIME=80
  30.    Screen Open 0,640,256,2,Hires
  31.    Curs Off : Hide 
  32.    Palette $35,$35
  33.    Wait 100
  34.    Locate 0,10
  35.    Centre "Boris II"
  36.    Fade 1,$35,$FFF
  37.    Wait 80
  38.    Fade 1,$35,$35 : Wait 15
  39.    Cls 0
  40.    Centre "Coded By"
  41.    Fade 1,$35,$FFF
  42.    Wait 80
  43.    Fade 1,$35,$35 : Wait 15
  44.    Cls 0
  45.    Centre "Gary Shilvock"
  46.    Fade 1,$35,$FFF
  47.    Wait 80
  48.    Fade 1,$35,$35 : Wait 15
  49.    Cls 0
  50.    Centre "(c) 1990"
  51.    Fade 1,$35,$FFF
  52.    Wait 80
  53.    Fade 1 : Wait 15
  54.    Cls 0
  55.    Unpack 6 To 0
  56.    Curs Off : Hide 
  57.    Led Off 
  58.    Music 1
  59.    Tempo 17
  60.    While Mouse Click=0
  61.    Wend 
  62.    For A=63 To 0 Step -1
  63.       Mvolume A : Wait 1
  64.    Next 
  65.    HELLOS:
  66.    Cls 0
  67.    Screen Open 0,640,256,2,Hires : Palette $0,$FFF
  68.    Hide : Curs Off 
  69.    Locate 0,10 : Palette $0,$0
  70.    Centre "Programmed Using"
  71.    Fade 1,$357,$FFF
  72.    Wait 80
  73.    Fade 1,$357,$357 : Wait 15
  74.    Cls 0
  75.    Locate 0,10
  76.    Centre "AMOS Basic"
  77.    Fade 1,$357,$FFF
  78.    Wait 80
  79.    Fade 1,$357,$357 : Wait 15
  80.    Cls 0
  81.    Locate 0,10
  82.    Centre "(c) 1990 Mandarin / Jawx."
  83.    Fade 1,$357,$FFF
  84.    Wait 80
  85.    Fade 1,$357,$357 : Wait 15
  86.    Cls 0
  87.    Locate 0,10
  88.    Centre "Greetings To"
  89.    Fade 1,$357,$FFF
  90.    Wait 80
  91.    Fade 1,$357,$357 : Wait 15
  92.    Cls 0
  93.    Locate 0,10
  94.    Centre "Steve"
  95.    Fade 1,$357,$FFF
  96.    Wait 80
  97.    Fade 1,$357,$357 : Wait 15
  98.    Cls 0
  99.    Locate 0,10
  100.    Centre "Matt"
  101.    Fade 1,$357,$FFF
  102.    Wait 80
  103.    Fade 1,$357,$357 : Wait 15
  104.    Cls 0
  105.    Locate 0,10
  106.    Centre "Sandra"
  107.    Fade 1,$357,$FFF
  108.    Wait 80
  109.    Fade 1,$357,$357 : Wait 15
  110.    Cls 0
  111.    Locate 0,10
  112.    Centre "Francois"
  113.    Fade 1,$357,$FFF
  114.    Wait 80
  115.    Fade 1,$357,$357 : Wait 15
  116.    Fade 2 : Wait 45
  117. End Proc